##########################################
### Projekt: Kreuztabellen             ###
### Name: Hannes Riebl                 ###
### Woche (von - bis): 06.06. - 12.06. ###
##########################################

# Was habe ich mir für diese Woche vorgenommen?
#
# a) Maximale Anzahl an Spieltagen berechnen
# b) Punktedifferenz zum Ersten und Letzen in die Tabelle einfügen
# c) Vereine automatisch abkürzen
# d) Inner-Funktion schreiben, um Code-Dopplungen zu vermeiden
# e) Code und Daten ein bisschen aufräumen

# Was habe ich bei der Umsetzung versucht?
#
# a) Berechnet sich wie folgt:
#
#        (n - 1) * 2
#
# b) Funktioniert ohne Schleifen, bspw. so:
#
#        ranking[, 'PDF'] <- ranking[, 'PTS'] - ranking[1, 'PTS']
#
# c) Nicht umgesetzt aus folgenden Gründen:
#
#          i) Es ergeben sich lange und unschöne Abkürzungen, etwa "BORUSSIAD"
#             oder "BORUSSIAM".
#         ii) Die Namen werden in der Tabelle untereinander ausgegeben und
#             nehmen daher ohnehin nicht viel Platz in Anspruch.
#        iii) Es ist allerdings möglich, der Funktion ein Data-Frame mit
#             vollständigen Namen zu übergeben. Dazu muss in read.csv() das
#             Argument "check.names = FALSE" verwendet werden.
#
# d) Ist erledigt.
#
# e) Auch erledigt.

# Was hat geklappt?
#
# Soweit alles. :-)

# Was nehme ich mir für nächste Woche vor?
#
# Möglicherweise eine graphische Darstellung der Tabelle.

# Was habe ich diese Woche gelernt?
#
# a) Für Leerzeichen in den Spaltennamen von Data-Frames:
#
#        check.names = FALSE
#
# b) Schleifen können manchmal vermieden werden.
